<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/2010admin/Check_IsLogin.asp" -->
<!--#include virtual="/Common/Function.asp" -->

<%
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"

corp_name	= reform("corp_name")
Result_Text  = ""


Sql  = " SELECT id,corp_name FROM corp_info WHERE 1=1 "			


Sql = Likesql("corp_name",corp_name,sql)

Set rsTemp = conn.execute(Sql)
Array_List = GetRsRows(Sql)

If IsArray(Array_List) Then 
	Response.Write "<select name=""Hotel_CheckIn_S"" ID=""Hotel_CheckIn_S"" size=10 multiple style=""width:200;"">"
	For i =0 To UBound(Array_List,2)
		Response.Write "<option value="""&array_List(0,i)&""">"&array_List(1,i)&"</option>"
	Next 
	Response.Write "</select>"
End If

Set rsTemp = Nothing 
Conn_Close()

%>
